home *** CD-ROM | disk | FTP | other *** search
/ TOS Silver 2000 / TOS Silver 2000.iso / programm / MM2_DEV / S / MYUTIL / TESTMEM.M < prev    next >
Encoding:
Text File  |  1989-03-10  |  1.7 KB  |  53 lines
  1. MODULE TestMem; (*$E MOS *)
  2.  
  3. FROM SYSTEM IMPORT ADDRESS, ADR, TSIZE, BYTE, WORD, LONGWORD, VAL;
  4.  
  5. FROM Terminal IMPORT WriteLn, WriteString, Read;
  6.  
  7. FROM Storage IMPORT MemAvail, AllAvail, ALLOCATE;
  8.  
  9. FROM StrConv IMPORT CardToStr;
  10.  
  11. PROCEDURE WriteCard (n: LONGCARD; s: CARDINAL);
  12.   BEGIN
  13.     WriteString (CardToStr (n,s))
  14.   END WriteCard;
  15.   
  16. VAR ch:CHAR; p: ADDRESS; l,m: LONGCARD;
  17.  
  18. BEGIN
  19.   WriteLn;
  20.   WriteLn;
  21.   WriteString ('Largest free space: ');
  22.   WriteCard (MemAvail (),0);
  23.   WriteLn;
  24.   WriteString ('Full free space   : ');
  25.   WriteCard (AllAvail (),0);
  26.   WriteLn;
  27.   WriteLn;
  28.   WriteString ('Allocating...');
  29.   WriteLn;
  30.   l:= 0;
  31.   m:= 0;
  32.   WHILE AllAvail () > 100L DO
  33.     m:= MemAvail ();
  34.     ALLOCATE (p,m);
  35.     IF p = NIL THEN
  36.       WriteLn;
  37.       WriteString ("Can't allocate ");
  38.       WriteCard (m,0);
  39.       WriteString (' Bytes !');
  40.       Read (ch);
  41.       RETURN
  42.     END;
  43.     l:= l + m;
  44.   END;
  45.   WriteLn;
  46.   WriteString ("Have been allocated ");
  47.   WriteCard (l,0);
  48.   WriteString (' Bytes.');
  49.   Read (ch)
  50. END TestMem.
  52. (* $FFF91E1C$FFF91E1C$FFF91E1C$FFF91E1C$FFF91E1C$FFF91E1C$FFF91E1C$FFF91E1C$FFF91E1C$FFF91E1C$FFF91E1C$FFF91E1C$FFF91E1C$FFF91E1C$FFF91E1C$00000173$FFF91E1C$FFF91E1C$FFF91E1C$FFF91E1C$FFF91E1C$00000429$FFF91E1C$FFF91E1C$FFF91E1C$FFF91E1C$FFF91E1C$FFF91E1C$FFF91E1C$FFF91E1C$FFF91E1C$FFF91E1C$FFF91E1C$FFF91E1C$FFF91E1C$FFF91E1C$FFF91E1C$FFF91E1C$FFF91E1C$FFF91E1C$FFF91E1C$FFF91E1CÇ$0000001BT.......T.......T.......T.......T.......T.......T.......T.......T.......T.......$00000413$00000063$00000094$0000006B$00000083$FFF66A49$00000163$0000014B$000003D9$000003E2$000003D9$0000001B$000003D2$0000033E$0000041A$000003F6ãÇÇ*)
  53.